TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/macros/latex209/contrib/misc/wasy.sty

Text File | 1992-12-03 | 8.1 KB | 245 lines

%% wasy.sty  v 1.1 von J"org Knappen 28. 11. 1992
%% (c) J"org Knappen 1992         [e-mail]
%% Copying conditions: GNU licence v1.0
%% The WASY fonts are loaded and a lot of control sequences are
%% defined
%% \wasy    acts as a font switch, switching its argument to wasy

\@ifundefined{extract@font}
     {\errmessage{The style option `wasy' does not make sense if you
                  do not use a format with the new font selection scheme.}
      \endinput}
     {}

  \def\RIfM@{\relax\protect\ifmmode}
    \let\boxz@\fi % \if \fi matching hack
  \def\boxz@{\box\z@}
  \def\setboxz@h{\setbox\z@\hbox}
  \def\wdz@{\wd\z@}
  \def\noaccents@{\def\accentclass@{0}}
  \def\Invalid@@{Invalid use of \string}
  \def\nonmatherr@#1{\err@
    {\string#1\space allowed only in math mode}\@ehd}
  \def\err@{\@latexerr}

\newmathalphabet\wasy@
\addtoversion{normal}\wasy@{wasy}{m}{n}
\addtoversion{bold}\wasy@{wasy}{b}{n}
\new@mathgroup\wasy@group
\define@mathgroup\mv@normal\wasy@group{wasy}{m}{n}
\define@mathgroup\mv@bold\wasy@group{wasy}{b}{n}
% Precautions for national styles changing the \catcode of "
\chardef\dq@code=\catcode`\"
\catcode`\"=12
\edef\@wasy{\hexnumber@\wasy@group}
\def\pwasy{\RIfM@\expandafter\wasy@\else
                  \expandafter\nonmatherr@\expandafter\wasy\fi}
\def\wasy{\protect\pwasy}
\new@fontshape{wasy}{m}{n}{%
  <5>wasy5%
  <6>wasy6%
  <7>wasy7%
  <8>wasy8%
  <9>wasy9%
  <10>wasy10%
  <11>wasy11%  This one was computed with the help of the Sauter tools
%  <11>wasy10 at10.95pt% alternative, change the position of the % sign to
%                         choose this
  <12>wasy12%
  <14>wasy14%  Ditto, design_size:=14.4;
%  <14>wasy12 at14.4pt%  alternative
  <17>wasy17%
%  <20>wasy17 at19.71pt%
  <20>wasy20%
%  <25>wasy17 at24.48pt%
  <25>wasy25%
  }{}
\new@fontshape{wasy}{b}{n}{%
  <5>wasyb5%
  <6>wasyb6%
  <7>wasyb7%
  <8>wasyb8%
  <9>wasyb9%
  <10>wasyb10%
  <11>wasyb11%  This one was computed with the help of the Sauter tools
%  <11>wasyb10 at10.95pt% alternative, change the position of the % sign to
%                         choose this
  <12>wasyb12%
  <14>wasyb14%  Ditto, design_size:=14.4;
%  <14>wasyb12 at14.4pt%  alternative
  <17>wasyb17%
%  <20>wasyb17 at19.71pt%
  <20>wasyb20%
%  <25>wasyb17 at24.48pt%
  <25>wasyb25%
  }{}
\extra@def{wasy}{}{\noaccents@}
% The following was extracted from:
% this is wasyfont.tex version 2.01--92/10
% Overall changes: Introduced \mathhexbox
% Changes made due to the nature of the wasy font as a math font
% Introduced $-signs etc.
%%%%%% special macro
\def\overstrike#1#2{{\setbox0\hbox{$#2$}\hbox to \wd0{\hss
    $#1$\hss}\kern-\wd0\box0}}
%%%%%% special symbols
\edef\male{\mathhexbox\@wasy1A}
\edef\female{\mathhexbox\@wasy19}
\edef\currency{\mathhexbox\@wasy1B}
\edef\phone{\mathhexbox\@wasy07}
\edef\recorder{\mathhexbox\@wasy06}
\edef\clock{\mathhexbox\@wasy1C}
\edef\lightning{\mathhexbox\@wasy12}
\edef\pointer{\mathhexbox\@wasy09}
\edef\RIGHTarrow{\mathhexbox\@wasy11}
\edef\LEFTarrow{\mathhexbox\@wasy10}
\edef\UParrow{\mathhexbox\@wasy4B}
\edef\DOWNarrow{\mathhexbox\@wasy4C}
\def\AC{\hbox{\kern0.5pt$\wasy{\photonchar}$\kern0.5pt}}
\def\HF{\lower0.9pt\hbox to 0pt{\kern0.5pt$\wasy{\photonchar}$\hss}%
        \raise0.9pt\hbox{\kern0.5pt$\wasy{\photonchar}$\kern0.5pt}}

\edef\VHF{\mathhexbox\@wasy40}
\edef\Box{\mathhexbox\@wasy32}\let\Square\Box
\edef\XBox{\mathhexbox\@wasy34}
\edef\Diamond{\mathhexbox\@wasy33}
\edef\hexagon{\mathhexbox\@wasy37}
\edef\pentagon{\mathhexbox\@wasy44}
\edef\octagon{\mathhexbox\@wasy38}
\edef\varhexagon{\mathhexbox\@wasy39}
\edef\hexstar{\mathhexbox\@wasy41}
\edef\varhexstar{\mathhexbox\@wasy42}
\edef\davidsstar{\mathhexbox\@wasy43}
\edef\diameter{\mathhexbox\@wasy1F}
\edef\invdiameter{\mathhexbox\@wasy15}
\edef\varangle{\mathhexbox\@wasy1E}
\edef\lozenge{\mathhexbox\@wasy35}
\edef\kreuz{\mathhexbox\@wasy36}
\edef\smiley{\mathhexbox\@wasy2C}
\edef\frownie{\mathhexbox\@wasy2F}
\edef\blacksmiley{\mathhexbox\@wasy2D}
\edef\sun{\mathhexbox\@wasy2E}
\edef\checked{\mathhexbox\@wasy08}
\edef\bell{\mathhexbox\@wasy0A}
\edef\eighthnote{\mathhexbox\@wasy0B}
\edef\quarternote{\mathhexbox\@wasy0C}
\edef\halfnote{\mathhexbox\@wasy0D}
\edef\fullnote{\mathhexbox\@wasy0E}
\edef\twonotes{\mathhexbox\@wasy0F}
\edef\brokenvert{\mathhexbox\@wasy7C}
\edef\therefore{\mathhexbox\@wasy05}
\edef\ataribox{\mathhexbox\@wasy6D}
\edef\Circle{\mathhexbox\@wasy23}
\edef\CIRCLE{\mathhexbox\@wasy20}
\edef\Leftcircle{\mathhexbox\@wasy49}
\edef\LEFTCIRCLE{\mathhexbox\@wasy47}
\edef\Rightcircle{\mathhexbox\@wasy4A}
\edef\RIGHTCIRCLE{\mathhexbox\@wasy48}
\edef\LEFTcircle{\hbox to 0pt{\LEFTCIRCLE\hss}\hbox{\Circle}}
\edef\RIGHTcircle{\hbox to 0pt{\RIGHTCIRCLE\hss}\hbox{\Circle}}
%%%%%% astronomy

\edef\vernal{\mathhexbox\@wasy17}
\edef\ascnode{\mathhexbox\@wasy13}
\edef\descnode{\mathhexbox\@wasy14}
\edef\fullmoon{\mathhexbox\@wasy23}
\edef\newmoon{\mathhexbox\@wasy20}
\edef\leftmoon{\mathhexbox\@wasy24}
\edef\rightmoon{\mathhexbox\@wasy25}
\edef\astrosun{\hbox{$\odot$}}
\edef\mercury{\mathhexbox\@wasy27}
\edef\venus{\raise0.2ex\hbox{\female}}
\edef\earth{\lower0.3ex\hbox{\mathhexbox\@wasy26}}
\edef\mars{\lower0.2ex\hbox{\male}}
\edef\jupiter{\mathhexbox\@wasy58}
\edef\saturn{\mathhexbox\@wasy59}
\edef\uranus{\mathhexbox\@wasy5A}
\edef\neptune{\mathhexbox\@wasy5B}
\edef\pluto{\mathhexbox\@wasy5C}
\edef\conjunction{\mathhexbox\@wasy56}
\edef\opposition{\mathhexbox\@wasy57}
%%%%%% the zodiac
\edef\aries{\mathhexbox\@wasy17}
\edef\taurus{\mathhexbox\@wasy5D}
\edef\gemini{\mathhexbox\@wasy5E}
\edef\cancer{\mathhexbox\@wasy5F}
\edef\leo{\mathhexbox\@wasy13}
\edef\virgo{\mathhexbox\@wasy60}
\edef\libra{\mathhexbox\@wasy61}
\edef\scorpio{\mathhexbox\@wasy62}
\edef\sagittarius{\mathhexbox\@wasy63}
\edef\capricornus{\mathhexbox\@wasy64}
\edef\aquarius{\mathhexbox\@wasy65}
\edef\pisces{\mathhexbox\@wasy66}
%%%%%% APL characters
\edef\APLstar{\mathhexbox\@wasy45}
\edef\APLlog{\mathhexbox\@wasy16}
\edef\APLbox{\mathhexbox\@wasy7E}
\edef\APLup{\mathhexbox\@wasy00}
\edef\APLdown{\mathhexbox\@wasy46}
\edef\APLinput{\mathhexbox\@wasy7D}
\edef\APLcomment{\mathhexbox\@wasy7F}
\edef\APLinv{\hbox to 0pt{$\div$\hss}\APLbox}
\edef\APLuparrowbox{\mathhexbox\@wasy6E}
\edef\APLdownarrowbox{\mathhexbox\@wasy6F}
\edef\APLleftarrowbox{\mathhexbox\@wasy70}
\def\APLrightarrowbox{\mathhexbox\@wasy71}
\def\notbackslash{\overstrike{\backslash}{-}}
\def\notslash{\overstrike{/}{-}}
\def\APLnot#1{\overstrike{\sim}{#1}}
\def\APLcirc#1{\overstrike{\circ}{#1}}
\def\APLvert#1{\overstrike{\vert}{#1}}
\def\APLminus{\raise0.7ex\hbox{$-$}}
%%%%%% diagrams
\edef\photonchar{\mathhexbox\@wasy3A}
\def\photon{\hbox{$\wasy{\photonchar\photonchar\photonchar\photonchar}$}}
\def\gluon{\hbox{$\wasy{\char"51\char"50\char"50\char"50%
    \char"50\char"50\char"50\char"52}$}}
%%%%%% math characters
\edef\Bowtie{\mathhexbox\@wasy31}
\edef\leftturn{\mathhexbox\@wasy22}
\edef\rightturn{\mathhexbox\@wasy21}
%%%%%% special characters
\edef\cent{\mathhexbox\@wasy67}
\edef\permil{\mathhexbox\@wasy68}
\edef\agemO{\mathhexbox\@wasy30}
\edef\thorn{\mathhexbox\@wasy69}
\edef\Thorn{\mathhexbox\@wasy6A}
\edef\dh{\mathhexbox\@wasy6B}
\def\Dh{\leavevmode{\setbox0\hbox{D}%
    \hbox to\wd0{\kern 0.04em\char32\hss D}}}
\edef\openo{\mathhexbox\@wasy6C}
\edef\inve{\mathhexbox\@wasy55}
%%%%%% math operators as mathchars
\def\invmathchardef#1#2{\mathchardef#2"#1}
\invmathchardef{3\@wasy01}{\lhd}
\invmathchardef{3\@wasy03}{\rhd}
\invmathchardef{3\@wasy10}{\LHD}
\invmathchardef{3\@wasy11}{\RHD}
\invmathchardef{3\@wasy02}{\unlhd}
\invmathchardef{3\@wasy04}{\unrhd}
\invmathchardef{3\@wasy3C}{\sqsubset}
\invmathchardef{3\@wasy3D}{\sqsupset}
\invmathchardef{3\@wasy3E}{\apprle}
\invmathchardef{3\@wasy3F}{\apprge}
\invmathchardef{3\@wasy1D}{\varpropto}
\invmathchardef{0\@wasy18}{\invneg}
\invmathchardef{3\@wasy3B}{\leadsto}
\invmathchardef{2\@wasy23}{\ocircle}
\invmathchardef{3\@wasy16}{\logof}
\invmathchardef{1\@wasy72}{\varint}
\invmathchardef{1\@wasy73}{\iint}
\invmathchardef{1\@wasy74}{\iiint}
\invmathchardef{1\@wasy75}{\varoint}
\invmathchardef{1\@wasy76}{\oiint}
%
%%%%%% new definitions
%
\def\newpropto{\let\propto\varpropto}
\def\newint{\let\int\varint \let\oint\varoint} % default limits

% Save LaTeX \mho
\let\mho\amegO
\catcode`\"=\dq@code
\endinput